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a Cell Coloring 


类 类 类 火炎 关头 类 类 类 类 类 类 类 类 类 类 类 头头 类 类 类 类 类 头头 类 类 类 类 类 头头 类 类 类 类 头头 


REPORT zdemo alv6. 


炎炎 类 类 类 类 头头 火炎 类 关头 关头 类 类 类 关头 头头 类 类 类 类 类 


ti Type - Pools * 
kkkkkkKAAKAKAKAKAKAAKAAKAAAAKARAAR 


TVPE-POOLS slis. 


类 火炎 火炎 类 头头 类 类 类 关头 关头 类 类 类 类 头头 类 类 类 类 类 类 


Data types 入 


ikokokokokokkokokokokokokokokokokok kokokokokok kokk 


TYPES : BEGIN OF tv temp ekko, 
lifnr TYPE lifnr, 
ebeln TYPE ebeln, 
aedat TYPE erdat, 
pprior TYPE zzprioritv, 
END OF tv temp ekko. 


TYPES :BEGIN OF tv ekko, 
lifnr TYPE lifnr, 
ebeln TYPE ebeln, 
aedat TYPE erdat, 
pprior TYPE zzprioritv, 
cell tab TVPE slis t specialcol alv, 
END OF tv ekko. 


TYPES ty t ekko TYPE TABLE OF tv. ekko. 


DATA : it ekko TYPE tv t ekko, 


wa ekko TYPE ty ekko, 

it temp ekko TYPE TABLE OF tv temp ekko, 
wa temp ekko TVPE tv temp ekko, 

it fieldcat TVPE slis t fieldcat alv, 

wa fieldcat TVPE slis fieldcat alv, 

is lavout TVPE slis lavout alv, 

itab TVPE slis t specialcol alv, 

wa TVPE LINE OF slis t specialcol alv. 


DATA v lifnr TYPE lifnr. 


类 火炎 火炎 类 头头 类 头头 类 类 头头 关头 头 类 头头 类 头头 类 类 


* Constants ~ 
kkkkkkkkkkkkkkkkkkkkkkokkkok 


CONSTANTS c check TVPE C VALUE 'X'. 


类 火炎 火炎 类 头头 类 关头 类 头头 类 类 类 类 类 类 类 关头 类 类 类 类 


ki Select-Options ki 
kkkkAKkKAKAKAKAAKAKAKAAKAAKAAARAAIK 


SELECT-OPTIONS s lifnr FOR v lifnr. 
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3 START-OF-SELECTION. $ 


ikokokokokok kokk kokk kokk kokokok kok okokokokokok kok kokk 


START-OF-SELECTION. 


SELECT lifnr ebeln aedat pprior 
INTO TABLE it temp ekko 
FROM ekko 


WHERE lifnr IN s lifnr 
AND 
pprior <> space. 


LOOP AT it temp ekko INTO wa temp ekko. 


wa ekko-lifnr = wa temp ekko-lifnr. 

wa ekko-ebeln — wa temp ekko-ebeln. 
wa ekko-aedat — wa temp ekko-aedat. 
wa ekko-pprior — wa temp ekko-pprior. 


APPEND wa ekko TO it ekko. 
ENDLOOP. 


ikokokokokokokokokok kokk kokk RKKK kok kokk 


* END-OF-SELECTION. > 


Ka Na Na WA Wa Wa NA Ka Aa Aa Wa WA kokk Rk WA WA WA NA Wa K 


END-OF-SELECTION. 
CLEAR wa fieldcat. 
wa fieldcat-fieldname — 'LIFNR'. 
wa fieldcat-col pos — 1. 
wa fieldcat-seltext m — 'Ven No.'. 
wa fieldcat-kev — c check. 
APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname — 'EBELN'. 
wa fieldcat-col pos — 3. 

wa fieldcat-seltext m = ' Po. No.... 
APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname — 'AEDAT'. 
wa fieldcat-col pos — 3. 

wa fieldcat-seltext m = 'Cret. Dt.'. 
APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname — 'PPRIOR'. 
wa fieldcat-col pos — 4. 

wa fieldcat-seltext m — 'Prioritv'. 
APPEND wa fieldcat TO it fieldcat. 


ikokokokokokokokokok kokk kok WA WA WA kokk 


? is layout i 
KEKEREKE KRKK KKK 


is_layout-coltab_fieldname = 'CELL TAB'. 


FRERE kokk kokk kkk 


4 Assign Colors ii 
kkkkkAkKkKAKAAKAAKAAAAAAAAARA 


CLEAR wa. 
wa-fieldname = 'LIFNR'. 
wa-color-col — 5. 
wa-color-int — 1. 
APPEND wa TO itab. 


XX XX xXx 


CLEAR wa. 
wa-fieldname = 'EBELN.. 
wa-color-col — 3. 
wa-color-int — 1. 
APPEND wa TO itab. 


XXX XX 


CLEAR wa. 

wa-fieldname — 'PPRIOR'. 
wa-color-col — 6. 
wa-color-int — 1. 


* wa-color-inv = 0. 
APPEND wa TO itab. 


CLEAR wa ekko. 
wa ekko-cell tab — itab. 


ikokokokokokokokokok kokokok kok KKK k kokk 


i Modify Operation $ 


FRKE KREEK RKKK RK KKK kokk 


* MODIFY it ekko FROM wa ekko TRANSPORTING cell tab W 
HERE ebeln = '3000000007'. 


MODIFY it_ekko FROM wa_ekko TRANSPORTING cell_tab WH 
ERE pprior = 'H'. 


FARRER RRR RKR Rk kkk WA K 


ti REUSE ALV GRID DISPLAV | 


WA AAA AA AAA Aa Aa AA AA aa Wa AA AA AA YA YA YA Ya aa aa 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 


EKPORTING 
is layout — is lavout 
it fieldcat — it fieldcat 
TABLES 


t outtab = it ekko. 


